home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 2002 November / SGI Freeware 2002 November - Disc 1.iso / dist / fw_exmh.idb / usr / freeware / lib / exmh-2.5 / addr.tcl.z / addr.tcl
Text File  |  2002-07-08  |  46KB  |  1,412 lines
  1. ############################################################################
  2. # 
  3. #  Insidious Mail DB
  4. #
  5. #-------------------
  6. # Copyright 1996, Xerox Corporation.  All Rights Reserved.
  7. # License is granted to copy, to use, and to make and to use derivative works for
  8. # research and evaluation purposes, provided that the copyright notice and
  9. # this license notice is included in all copies and any derivatives works and in
  10. # all  related documentation.  Xerox grants no other licenses expressed or
  11. # implied and the licensee acknowleges that Xerox have no liability for
  12. # licensee's use or for any derivative works made by licensee. The Xerox
  13. # names shall not be used in any advertising or the like without their written
  14. # permission.
  15. # This software is provided AS IS.
  16. # XEROX CORPORATION DISCLAIMS AND LICENSEE
  17. # AGREES THAT ALL WARRANTIES, EXPRESS OR IMPLIED, INCLUDING WITHOUT LIMITATION
  18. # THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  19. # NOTWITHSTANDING ANY OTHER PROVISION CONTAINED HEREIN, ANY LIABILITY FOR DAMAGES
  20. # RESULTING FROM THE SOFTWARE OR ITS USE IS EXPRESSLY DISCLAIMED, INCLUDING
  21. # CONSEQUENTIAL OR ANY OTHER INDIRECT DAMAGES, WHETHER ARISING IN CONTRACT, TORT
  22. # (INCLUDING NEGLIGENCE) OR STRICT LIABILITY, EVEN IF XEROX CORPORATION
  23. # IS ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
  24. #---------
  25. # This package saves the e-mail address of everyone you get mail from, and lets
  26. # you send mail back with only a partial address.
  27. #
  28. # When you type part of an address in the To: or Cc: field, Ctrl-TAB will
  29. # attempt to complete the address.
  30. #
  31. # The concept owes a lot to the Gnu Emacs package "BBDB" by Jamie Zawinski 
  32. # (jwz@netscape.com) but this implementation is strictly my own.  Thanks, Jamie!
  33. #
  34. #
  35. # A neat feature of the browser (and entry editor) is that you can pop up (a la Clip)
  36. # the last message you got from that person.  Be careful, though; if that message was 
  37. # deleted or the folder was packed since that message arrived, it will fail.
  38. #
  39. # I've been using this (or earlier versions) for about 2 years now and my database 
  40. # is about 5000 entries; I find it EXTERMELY useful when I cannot quite remember the email
  41. # address of that guy I got a message from 6 months ago and need to reply to, but
  42. # I remember it was "Ted something".
  43. #
  44. # It takes a little while to load the browser window (at least for me, sorting 5000 
  45. # strings and then inserting them into a listbox takes a while), but then it "stays"
  46. # even if you dismiss it so it's not too painful.
  47. #
  48. # Enjoy; if you find this useful please let me know; if you make it better 
  49. # please send me the code.
  50. #
  51. #   --Berry Kercheval, Xerox PARC, March 1996 (kerch@parc.xerox.com)
  52. #########################################################################
  53.  
  54. #
  55. # These variables control the setup
  56. #
  57. set addrVersion {$Revision: 1.14 $}
  58.  
  59. # Addr_debug, if ==1, enables printing messages while this stuff runs.
  60. # Set Addr_debug 1 in your user.tcl before invoking Addr_Init to enable debug messages
  61. if {0 == [info exists Addr_debug]} {
  62.     set Addr_debug 0
  63. }
  64.  
  65. #
  66. # Addr_Init loads the database file at startup time, and arranges the 
  67. # partial-address-expansion keybinding.
  68. #
  69. proc Addr_Init {} {
  70.     global env
  71.     global addrFile
  72.     global homeDir
  73.     global addr_list
  74.  
  75.     # addrFile is the name of the file the address database is kept in
  76.     set addrFile "exmh_addrs"
  77.     
  78.     # homeDir is the directory the database is kept in.
  79.     set homeDir "$env(HOME)/.exmh"
  80.  
  81.     # tell exmh about our preference items and initialize them
  82.     Preferences_Add "Address Database" "These settings affect the behavior of the address database.
  83.     See also the key binding for \"addrexpand\" that is set
  84.     in the Bindings... dialog Simple Edit." {
  85.         {
  86.             addr_db(enabled)
  87.             addressdbEnabled
  88.             ON
  89.             "Automatic address saving"
  90.             "If set, From addresses are remembered and available in an address browser."
  91.         }
  92.         {
  93.             addr_db(hideexcluded)
  94.             addressdbHideExcluded
  95.             ON
  96.             "Hide excluded addresses"
  97.             "If set, addresses excluded from the expansion process will not be displayed by the Address DB Browser."
  98.         }
  99.         {
  100.             addr_db(checkpoint_on_folder_change) 
  101.             addressdbFolderChangeCheckpoint
  102.             ON
  103.             "Checkpoint on Folder Change"
  104.             "If set, Exmh will save your address file whenever you visit a new folder."
  105.         }
  106.         {
  107.             addr_db(searchlist)
  108.             addressdbSearchlist
  109.             {Addr_FullNameMatch Addr_Lookup Alias_Lookup LDAP_Lookup}
  110.             "Expand methods to use"
  111.             "A list of TCL procs, separated by spaces, which will be called sequentially to try to expand the address.  Valid choices are \"Addr_FullNameMatch\" to search full names, \"Addr_Lookup\" to search for mail addresses, \"Alias_Lookup\" to search your MH/exmh alias list, and LDAP_Lookup to use an LDAP server."
  112.         }
  113.         {
  114.             addr_db(ldap_server)
  115.             addressdbLDAPServer
  116.             {}
  117.             "LDAP Server"
  118.             "The server to send LDAP queries to."
  119.         }
  120.         {
  121.             addr_db(ldap_searchbase)
  122.             addressdbLDAPSearchBase
  123.             {}
  124.             "LDAP Search Root"
  125.             "The root under which to conduct LDAP searches."
  126.         }
  127.     {
  128.         addr_db(ldap_encoding)
  129.         addressdbLDAPEncoding
  130.         {utf-8}
  131.         "LDAP Encoding"
  132.         "The character encoding used by the LDAP server."
  133.     }
  134.         {
  135.             addr_db(filter_regexp)
  136.             addressdbFilterRegexp
  137.             {}
  138.             "Regular expression filter"
  139.             "If set, addresses matching this regular expression pattern will not be saved in the database."
  140.         }
  141.         {
  142.             addr_db(skip_folders)
  143.             addressdbFoldersSkip
  144.             {}
  145.             "Folders to ignore"
  146.             "A list of one or more folders separated by spaces.  Exmh will not save addresses from the mail in the folders in this list. An empty list will allow Exmh to add addresses from every folder.  Groups of folders may be specified using * as a wild card anywhere in a folder name."
  147.         }
  148.         {
  149.             addr_db(filter_alternate_mailboxes) 
  150.             addressdbFilterAltMailboxes
  151.             ON
  152.             "Ignore alternate mailboxes"
  153.             "If set, addresses that match the names specified as \"Alternate mailboxes\" in your MH profile will not be saved."
  154.         }
  155.         {
  156.             addr_db(key_force_save)
  157.             addressdbForceSave 
  158.             <Control-Tab>
  159.             "Key to save an address"
  160.             "Key which, if pressed, will cause the address from the current message to be stored regardless of any filtering specified.  This key is only active in the main exmh window so it may be the same as the \"Key to expand addresses\" without conflict.  Pressing this key stores an address in the database even if it would have been filtered (not stored) due to matching \"Regular expression filter\", \"Folders to ignore\", or one of your alternate mailboxes."
  161.         }
  162.         {
  163.             addr_db(standard_address_format)
  164.             addressdbStandardFormat
  165.             ON
  166.             "Use \"address (Full Name)\" Format"
  167.             "If on, use \"address (Full Name)\" format for expanded addresses.  Otherwise, use \"Full Name <address>\" format."
  168.         }
  169.         {
  170.             addr_db(remove_entries)
  171.             addressdbRemoveEntries
  172.             OFF
  173.             "Remove Old Entries"
  174.             "If on, remove old entries from the database"
  175.         }
  176.         {
  177.             addr_db(remove_days)
  178.             addressdbRemoveDays
  179.             {}
  180.             "Days Until Removal"
  181.             "Number of days until inactive entry is removed"
  182.         }
  183.         {
  184.             addr_db(remove_invalid_date)
  185.             addressdbRemoveInvalidDate
  186.             OFF
  187.             "Remove Invalid Date"
  188.             "If on, delete any entry with a non-null, but invalid date"
  189.         }
  190.     }
  191.  
  192.     #addr_db is an array used for keeping state.
  193.     #make this an array from the get-go and set the default pref...
  194.     global addr_db
  195.     set addr_db(init) 1;  
  196.     if ![info exists addr_db(curmethod)]            {set addr_db(curmethod) 0}
  197.     if ![info exists addr_db(laststring)]           {set addr_db(laststring) ""}
  198.     if ![info exists addr_db(lastfound)]            {set addr_db(lastfound) ""}
  199.     if ![info exists addr_db(changed)]              {set addr_db(changed) 0}
  200.     if ![info exists addr_db(filterstring)]         {set addr_db(filterstring) ""}
  201.     if ![info exists addr_db(remove_entries)]       {set addr_db(remove_entries) 0}
  202.     if ![info exists addr_db(remove_days)]          {set addr_db(remove_days) ""}
  203.     if ![info exists addr_db(remove_invalid_date)]  {set addr_db(remove_invalid_date) 0}
  204.  
  205.     trace variable addr_db(hideexcluded) w Addr_Browse_Exclude_Change
  206.     Addr_LoadDB
  207. }
  208. #
  209. # Hook_MsgShow is called when exmh displays a message.  We parse out the 
  210. # From: header and call Addr_Save to update the entry in the database.
  211. #
  212. proc Hook_MsgShowAddr {path headervar } {
  213.     upvar $headervar header
  214.     global addr_db
  215.  
  216.     set addr_db(last_seen) [list $path $header(0=1,hdr,from) $header(0=1,hdr,date)]
  217.     if {! $addr_db(enabled)} {
  218.         return
  219.     }
  220.     Addr_Save [MsgParseFrom $header(0=1,hdr,from)] $path \
  221.             $header(0=1,hdr,from)       $header(0=1,hdr,date)
  222. }
  223.  
  224. #
  225. # Hook_FolderChange is called when a new folder is visited.  Save the 
  226. # database then too.
  227. #
  228. proc Hook_FolderChangeAddr {newfolder} {
  229.     global addr_db
  230.  
  231.     if {$addr_db(changed) && $addr_db(checkpoint_on_folder_change)} {
  232.         Addr_SaveFile
  233.     }
  234. }
  235.  
  236.  
  237. #
  238. # Hook_CheckPoint is called when exmh checkpoints its state.  Save the 
  239. # database here.
  240. #
  241. proc Addr_CheckPoint {} {
  242.     Addr_SaveFile
  243. }
  244.  
  245. #####
  246. #
  247. # Address_Init and the address Hook procedures are moved to extrasInit.tcl
  248. #
  249. ####
  250.  
  251. ########################################################################
  252. #
  253. # This one is bound to a key of the user's choosing to force-save 
  254. # the from address of the current message (info stored in last-seen by
  255. # the Hook_MsgShow routine above.
  256. #
  257. proc Address_Save {} {
  258.     global addr_db
  259.  
  260.     AddrDebug "Force save $addr_db(last_seen)"
  261.  
  262.     Addr_Save [MsgParseFrom [lindex $addr_db(last_seen) 1]] \
  263.             [lindex $addr_db(last_seen) 0] \
  264.             [lindex $addr_db(last_seen) 1] \
  265.             [lindex $addr_db(last_seen) 2] \
  266.             "force"
  267. }
  268. # SaveTo saves the current address on the to line
  269. #
  270. proc SaveTo { w } {
  271.     global addr_db
  272.  
  273.     Exmh_Status "SaveTo: w=$w"
  274.     set line [string trim [$w get {insert linestart} {insert lineend}]]
  275.     ##  AddrDebug "  got line \"$line\""
  276.     # Only allows expansion on addressable header lines.
  277.     if [regexp -nocase {^(to: *|resent-to: *|cc: *|resent-cc: *|bcc: *|dcc: *)(.*)} $line t0 t1 t2] {
  278.         ##  AddrDebug  "  matched! keep is \"$t1\", partial name=\"$t2\""
  279.         if [regexp -indices ",?.*, *" $t2 t0] {
  280.             set t0 [lindex $t0 end]
  281.             ##  AddrDebug "got comma at $t0"
  282.             set t3 [string range $t2 0 $t0]
  283.             append t1 $t3
  284.             set t2 [string range $t2 [expr $t0 + 1] end]
  285.             ##  AddrDebug "  multi, will keep \"$t1\", new partial name=\"$t2\""
  286.         }
  287.         # Save address ($t2) 
  288.         Addr_Save [MsgParseFrom $t2] "NEW" $t2 "NULL" "force"
  289.  
  290.     } else {
  291.         Exmh_Status "Error in name expansion: not on To: field"
  292.         return
  293.     }
  294. }
  295.  
  296. ########################################################################
  297. #
  298. # These are the "real" database procs.
  299. #
  300.  
  301. #
  302. # This is "magically" executed when exmh is setting up 
  303. # keystroke bindings for the main window
  304. #
  305. proc Addr_Bindings { w } {
  306.     global addr_db
  307.     if {$addr_db(key_force_save) != ""} {
  308.         AddrDebug "binding for $w"
  309.         Bind_Key $w $addr_db(key_force_save) {Address_Save ; break}
  310.     }
  311. }
  312.  
  313. #
  314. # Addr_LoadDB does the real work to load the database file.
  315. #
  316. proc Addr_LoadDB { {ldmsg ""} } {
  317.     global addr_db
  318.     global addrFile
  319.     global homeDir
  320.     global addr_list
  321.  
  322.     AddrDebug "AddrDB: loading database..."
  323.     catch {source $homeDir/$addrFile}
  324.     set addr_db(changed) 0
  325.     if {[array size addr_list] == 0} {
  326.         set addr_list(noone@nowhere.nada.zip) 1; #null array, put in a dummy
  327.     }
  328.     AddrDebug "AddrDB: loading database...done."
  329.     Addr_Browse_LoadListbox $ldmsg
  330. }
  331. #
  332. # Addr_SaveFile saves the database into a unix file 
  333. #
  334. proc Addr_SaveFile { {force 0} } {
  335.     global addr_list addr_db
  336.     global addrFile
  337.     global homeDir
  338.  
  339.     if {0 == $addr_db(changed) && 0 == $force} return
  340.  
  341.     Exmh_Status "Saving address database..."
  342.     if {$addr_db(remove_days) == ""} {
  343.         set expiration 0
  344.      
  345.     } else {
  346.         set expiration [expr [clock seconds] - (60*60*24*$addr_db(remove_days))]
  347.     }
  348.     set fd [open "$homeDir/.exmh_addr_tmp" w]
  349.     foreach i [array names addr_list] {
  350.        if {[catch {if {$addr_db(remove_entries) == 1 &&
  351.                        $addr_db(enabled) == 1 &&
  352.                        $expiration > 0 &&
  353.                        [lindex $addr_list($i) 1] != "" &&
  354.                        [clock scan [lindex $addr_list($i) 1]] < $expiration} {
  355.                       unset addr_list($i) 
  356.                   } else {
  357.                      puts $fd [list set addr_list($i) $addr_list($i)]
  358.                   }}]!= 0} {
  359.           if {$addr_db(remove_invalid_date)} {
  360.              unset addr_list($i)
  361.           } else {
  362.              puts $fd [list set addr_list($i) $addr_list($i)]
  363.           }
  364.        }
  365.     }
  366.     close $fd
  367.     #  the first time the address file won`t exist yet...
  368.     if [file exists $homeDir/$addrFile] {
  369.         Mh_Rename $homeDir/$addrFile $homeDir/$addrFile.bak
  370.     }
  371.     Mh_Rename $homeDir/.exmh_addr_tmp $homeDir/$addrFile 
  372.     set addr_db(changed) 0
  373.     Exmh_Status "Saving address database...done."
  374. }
  375.  
  376. #
  377. # Field level extract and set routines
  378. #
  379.  
  380. proc Addr_Entry_IsExcluded {key} {
  381.     global addr_list
  382.  
  383.     set excluded 0
  384.     if [catch {set item $addr_list($key)} err] {
  385.         Exmh_Status "Address DB: Addr_Entry_IsExcluded lookup error for $key"
  386.     } else {
  387.         if {1==[lindex $item 4]} { set excluded 1 }
  388.     }
  389.     return $excluded
  390. }
  391.  
  392. proc Addr_Entry_SetExcluded {key} {
  393.     global addr_list addr_db
  394.  
  395.     if [catch {set item $addr_list($key)} err] {
  396.         Exmh_Status "Address DB: Addr_Entry_SetExcluded lookup error for $key"
  397.     } else {
  398.         if {5 == [llength $item]} {
  399.             set addr_list($key) "[lrange $item 0 3] 1"
  400.         } else {
  401.             set addr_list($key) "$item 1"
  402.         }
  403.         set addr_db(changed) 1
  404.     }
  405.     return 
  406. }
  407.  
  408. proc Addr_Entry_UnsetExcluded {key} {
  409.     global addr_list addr_db
  410.  
  411.     if [catch {set item $addr_list($key)} err] {
  412.         Exmh_Status "Address DB: Addr_Entry_UnsetExcluded lookup error for $key"
  413.     } else {
  414.         if {5 == [llength $item]} {
  415.             set addr_list($key) [lrange $item 0 3]
  416.             set addr_db(changed) 1
  417.         }
  418.     }
  419.     return 
  420. }
  421.  
  422. proc Addr_Entry_ToggleExcluded {key} {
  423.     if [Addr_Entry_IsExcluded $key] {
  424.         Addr_Entry_UnsetExcluded $key
  425.     } else {
  426.         Addr_Entry_SetExcluded $key
  427.     }
  428. }
  429.  
  430.  
  431. # Format an address with full name.  The result may be either
  432. #
  433. #       address (full name)
  434. # or
  435. #       full name <address>
  436. #
  437. # depending on the state of the standard_address_format flag.
  438. proc Addr_Entry_FormatForMail {key} {
  439.     global addr_list addr_db
  440.  
  441.     if [catch {set item $addr_list($key)} err] {
  442.         return $key
  443.     }
  444.  
  445.     set fullname  [lindex $item 2]
  446.     regsub ,$ $fullname {} fullname_less_comma
  447.     if {0 == [string length "$fullname_less_comma" ]} {
  448.         set formatted "$key"
  449.     } else {
  450.         if {$addr_db(standard_address_format)} {
  451.             set formatted "$key ($fullname_less_comma)"
  452.         } else {
  453.             # If there are characters in the name that require quoting,
  454.             # quote the string.
  455.             if [string match {*[<>.,'*?]*} $fullname_less_comma] {
  456.                 set formatted "\"$fullname_less_comma\" <$key>"
  457.             } else {
  458.                 set formatted "$fullname_less_comma <$key>"
  459.             }
  460.         }
  461.     }
  462.     
  463.     return $formatted
  464.  
  465. }
  466.  
  467. proc Addr_Entry_FormatForListbox {key} {
  468.     global addr_list
  469.  
  470.     if [catch {set item $addr_list($key)} err] {
  471.         return $key
  472.     }
  473.  
  474.     set fullname  [lindex $item 2]
  475.     regsub ,$ $fullname {} fullname_less_comma
  476.     if [Addr_Entry_IsExcluded $key] {
  477.         set formatted [format "%-24.24s- <%s>" $fullname_less_comma $key ]
  478.     } else {
  479.         set formatted [format "%-25.25s <%s>" $fullname_less_comma $key ]
  480.     }
  481.  
  482.     return $formatted
  483. }
  484.  
  485. #
  486. # Addr_Save updates the database entry when a new message is read.
  487. #
  488.  
  489. proc Addr_Save {from path rawfrom date {forcesave "not"}} {
  490.     global addr_db
  491.     global addr_list
  492.     global exmh
  493.     global mhProfile
  494.  
  495.     if {[string compare $forcesave "force"] != 0} {
  496.         if {$addr_db(skip_folders) != ""} {
  497.             set filter_list [split $addr_db(skip_folders) " "]
  498.             # AddrDebug "  folder filter list is \"$filter_list\""
  499.             foreach i $filter_list {
  500.                 if {[string length $i] > 0} {
  501.                     # AddrDebug "Matching \"$exmh(folder)\" for \"$i\""
  502.                     if [string match $i $exmh(folder)] {
  503.                         AddrDebug "  folder filter eliminated $exmh(folder)"
  504.                         return
  505.                     }
  506.                 }
  507.             }
  508.         }
  509.         if {$addr_db(filter_alternate_mailboxes) != 0} {
  510.             catch {unset filter_list}
  511.             catch {
  512.                 set filter_list [split $mhProfile(alternate-mailboxes) ", "]
  513.             }
  514.             if [info exists filter_list] {
  515.                 # Filter out all of the user's alternate mailboxes
  516.                 # AddrDebug "alternate mailboxes \"$mhProfile(alternate-mailboxes)"
  517.                 set filter_list [split $mhProfile(alternate-mailboxes) ", "]
  518.                 # AddrDebug "  list \"$filter_list\""
  519.                 foreach i $filter_list {
  520.                     if {[string length $i] > 0} {
  521.                         if [string match $i $from] {
  522.                             AddrDebug "  alternate mailbox filter eliminated $from"
  523.                             return
  524.                         }
  525.                     }
  526.                 }
  527.             }
  528.         }
  529.         if {$addr_db(filter_regexp) != ""} {
  530.             # AddrDebug "filtering $addr_db(filter_regexp)"
  531.             if [regexp -nocase -- $addr_db(filter_regexp) $from] {
  532.                 AddrDebug "  regexp filter eliminated $from"
  533.                 return
  534.             }
  535.         }
  536.     }
  537.     set addr_db(changed) 1
  538.     set newentry 0
  539.     if [info exists addr_list($from)] {
  540.         Exmh_Status "Updating address \"$from\"."
  541.         if {[string length [Addr_ParseFrom $rawfrom]] == 0} {
  542.             set newone [list $path $date  \
  543.                     [lindex $addr_list($from) 2] $rawfrom [Addr_Entry_IsExcluded $from]]
  544.         } else {
  545.             set newone [list $path $date  \
  546.                     [Addr_ParseFrom $rawfrom] $rawfrom [Addr_Entry_IsExcluded $from]]
  547.         }
  548.     } else {
  549.         Exmh_Status "Saving address \"$from\"."
  550.         set newone [list $path $date  \
  551.                 [Addr_ParseFrom $rawfrom] $rawfrom] 
  552.         set newentry 1
  553.     }
  554.     set addr_list($from) $newone
  555.     if {$newentry} {
  556.         # Gotta catch this in case there's no browser window
  557.         catch {
  558.             $addr_db(win) insert end [Addr_Entry_FormatForListbox $from]
  559.         }
  560.     }
  561. }
  562.  
  563. #
  564. # Addr_KeyExpand expands a partial address in response to a key binding
  565. #
  566. proc Addr_KeyExpand { w } {
  567.     global addr_db
  568.  
  569.     AddrDebug "Addr_KeyExpand: w=$w $addr_db(searchlist)"
  570.     set line [string trimright [$w get {insert linestart} {insert lineend}]]
  571.     ##  AddrDebug "  got line \"$line\""
  572.     # Only allows expansion on addressable header lines.
  573.     #old regexp:  regexp -nocase {^(to: *|resent-to: *|cc: *|resent-cc: *|bcc: *|dcc: *)(.*)} $line t0 t1 t2
  574.     if {[$w compare insert <= hlimit] && \
  575.             [regexp -nocase {^([-a-z]+: *)?(.*)} $line t0 t1 t2]} {
  576.         ##  AddrDebug  "  matched! keep is \"$t1\", partial name=\"$t2\""
  577.         if {[regexp -indices ",?.*, *" $t2 t0] || \
  578.                 [regexp -indices "^ +" $t2 t0]} {
  579.             set t0 [lindex $t0 end]
  580.             ##  AddrDebug "got comma at $t0"
  581.             set t3 [string range $t2 0 $t0]
  582.             append t1 $t3
  583.             set t2 [string range $t2 [expr $t0 + 1] end]
  584.             ##  AddrDebug "  multi, will keep \"$t1\", new partial name=\"$t2\""
  585.         }
  586.         if {[string compare $addr_db(lastfound) $t2] != 0 \
  587.                 || $addr_db(curmethod) >= [llength $addr_db(searchlist)]} {
  588.             Exmh_Status "Resetting start method"
  589.             catch {destroy $w.addrs}
  590.             set addr_db(expansion) {}
  591.             set addr_db(curmethod) 0
  592.             set addr_db(laststring) $t2
  593.         } else {
  594.             if {$addr_db(curmethod) != 0} {
  595.                 set t2 $addr_db(laststring)
  596.             }
  597.         }
  598.         foreach proc [lrange $addr_db(searchlist) $addr_db(curmethod) end] {
  599.             incr addr_db(curmethod)
  600.             Exmh_Status "$proc $t2"
  601.             set result [busy $proc $t2]
  602.             if {[string compare $result ""] == 0} continue
  603.             if {[llength $result] == 1} {
  604.                 # unique match
  605.                 $w delete  {insert linestart} {insert lineend}
  606.                 $w insert insert [format "%s%s" $t1 [lindex $result 0]]
  607.                 set addr_db(lastfound) [lindex $result 0]
  608.                 catch {destroy $w.addrs}
  609.             } else {
  610.                 # must be multiple hits
  611.                 AddrDebug "  Multiple hits: $result"
  612.                 set addr_db(lastfound) $t2
  613.                 set new [AddrShowDialog $w $result]
  614.                 # if no selection is made, leave the string where it is
  615.                 if [ string compare $new "" ] {
  616.                     set addr_db(lastfound) $new
  617.                     $w delete  {insert linestart} {insert lineend}
  618.                     $w insert insert [format "%s%s" $t1 $new]
  619.                 }
  620.             }
  621.             break
  622.         }
  623.     } else {
  624.         Exmh_Status "Error in name expansion: not on supported field"
  625.         return
  626.     }
  627. }
  628.  
  629. proc Alias_Lookup {n} {
  630.     global aliases
  631.     Aliases_Load
  632.     set t2 [string trim $n]
  633.     if {[string length [array names aliases $t2]] == 0} {
  634.         Exmh_Status "No match found for \"$t2\""
  635.         return {}
  636.     } else {
  637.         Exmh_Status "Found alias: \"$aliases($t2)\""
  638.         if {1 == [llength $aliases($t2)] && \
  639.             0 != [string compare "\{" [string range $aliases($t2) 0 0]] } {
  640.             return [list [Addr_Entry_FormatForMail $aliases($t2)]]
  641.         }
  642.         # Note: cannot use Address_Entry_FormatForMail here since contents
  643.         # of alias is too unpredicatble.  May be a list of names, may be 
  644.         # a preformatted fullname and address.  So send it back as-is
  645.         return $aliases($t2)
  646.     }
  647. }
  648.  
  649. proc Addr_FullNameMatch {n}  {
  650.     global addr_list
  651.  
  652.     Exmh_Status "Matching on full names with $n..."
  653.     set result {}
  654.     set pat {}
  655.     append pat [string trim $n]
  656.     foreach i [ array names addr_list] {
  657.         if {1 == [Addr_Entry_IsExcluded $i]} continue
  658.         set elt $addr_list($i)
  659.         set fn [lindex $elt 2]
  660.         # puts stdout "matching against $fn (elt = $elt)"
  661.         if [catch {set match [regexp -nocase -- $pat $fn t0]}] {
  662.             Exmh_Status "Fullname expansion error: Invalid regexp \"$pat\""
  663.             return {}
  664.         }
  665.         if {$match} {
  666.             AddrDebug "   fullname match on $fn"
  667.             lappend result "[Addr_Entry_FormatForMail $i]"
  668.         }  
  669.     }
  670.     if {[llength $result] > 0} {
  671.         return $result
  672.     } else {
  673.         Exmh_Status "Matching on full names with \"$pat\"...none found"
  674.         return {}
  675.     }
  676. }
  677.  
  678.     
  679. proc LDAP_Lookup {n} {
  680.     global addr_db
  681.  
  682.     # Make sure the ldap_server variable has been set in the preferences.
  683.     if { ($addr_db(ldap_server) == {}) || ($addr_db(ldap_searchbase) == {}) } {
  684.         return {}
  685.     }
  686.     
  687.     Exmh_Status "Querying $addr_db(ldap_server) from $addr_db(ldap_searchbase) with $n..."
  688.  
  689.     set query "(|(cn=*$n*)(mail=*$n*)(sn=*$n*)(givenname=*$n*))"
  690.     if {[catch {set query "[encoding convertto $addr_db(ldap_encoding) "$query"]"} err]} {
  691.     Exmh_Debug "LDAP_Lookup encoding convertto: $err"
  692.     }
  693.     if [catch {set ldap_results [exec ldapsearch -B -h [string trim $addr_db(ldap_server)] \
  694.                                                  -b $addr_db(ldap_searchbase) \
  695.                                                  "$query" cn mail]} err] {
  696.         Exmh_Status "Error executing ldapsearch: $err"
  697.         return {}
  698.     }
  699.  
  700.     if {[catch {set ldap_results [encoding convertfrom utf-8 "$ldap_results"]} err]} {
  701.     Exmh_Debug "LDAP_Lookup encoding convertfrom: $err"
  702.     }
  703.     # The return from ldapsearch will be something like this:
  704.     #
  705.     # cn=Lastname, Firstname
  706.     # mail=foo@nowhere.com
  707.     #
  708.     # cn=Anotherlastname, Anotherfirstname
  709.     # mail=bar@nowhere.com
  710.     #
  711.     # ...
  712.     set result {}
  713.     foreach i [split $ldap_results \n ] {
  714.         if [regexp -nocase {^mail[=:] *([^,]*)$} $i dummy email] {
  715.             lappend result "[LDAP_Entry_FormatForMail $email $name]"
  716.         } elseif [regexp -nocase {^cn[=:] *(.*)$} $i dummy tmp] {
  717.             set name $tmp
  718.         }
  719.     }
  720.     
  721.     return $result
  722. }
  723.  
  724.  
  725. proc LDAP_Entry_FormatForMail { email name } {
  726.     global addr_db
  727.     
  728.     if {$addr_db(standard_address_format)} {
  729.         set formatted "$email ($name)"
  730.     } else {
  731.         # If there are characters in the name that require quoting,
  732.         # quote the string.
  733.         if [string match {*[<>.,'*?]*} $name] {
  734.             set formatted "\"$name\" <$email>"
  735.         } else {
  736.             set formatted "$name <$email>"
  737.         }
  738.     }
  739.  
  740.     return $formatted
  741. }
  742.  
  743. proc Addr_Lookup { n } {
  744.     global addr_list
  745.  
  746.     AddrDebug "Addr_Lookup: looking for $n"
  747.     if {[string compare $n ""] == 0} {
  748.         Exmh_Status "Address expansion error: null string!"
  749.         return {}
  750.     }
  751.  
  752.     set result {}
  753.     set pat {}
  754.     append pat [string trim $n]
  755.     AddrDebug "  using pattern \"$pat\""
  756.  
  757.     foreach i [array names addr_list] {
  758.         if {1 == [Addr_Entry_IsExcluded $i]} continue
  759.         set elt $addr_list($i)
  760.         if [catch {set match [regexp -nocase -- $pat $i t0]}] {
  761.             Exmh_Status "Address expansion error: Invalid regexp \"$pat\""
  762.             return {}
  763.         }
  764.         if {$match} {
  765.             AddrDebug "   match on $i"
  766.             set fn [lindex $elt 2]
  767.             lappend result "[Addr_Entry_FormatForMail $i]"
  768.         }
  769.     }
  770.  
  771.     AddrDebug "Addr_Lookup: result is $result"
  772.     return $result
  773. }
  774.  
  775.  
  776. #
  777. # Addr_ParseFrom takes a raw From: header and return the fullname.
  778. # it should work on lines of the form:
  779. #
  780. ## Berry Kercheval <kerch@parc.xerox.com>
  781. ## kerch@parc.xerox.com (Berry Kercheval)
  782.  
  783. proc Addr_ParseFrom { fromline } {
  784.     #    AddrDebug "Addr_ParseFrom: working on $fromline"
  785.     set line [string trim $fromline]
  786.  
  787.     # if it's "xxx <foo@bar>"...
  788.     if [regexp {([^<]*)(<.*>)} $line t1 t2 t3] {
  789.         #       AddrDebug "  Matched: ( $t1 )( $t2 )( $t3 )"
  790.         set token [string trim $t2 ]
  791.     } else {
  792.         # nope, try foo@bar (xxx)
  793.         #       AddrDebug "  Not xxx <foo@bar>, try foo@bar (xxx)"
  794.         if [regexp {^([^\(]*)(\(.*\))[^\)]*$} $line t1 t2 t3] {
  795.             #       AddrDebug "  Matched: ( $t1 )( $t2 )( $t3 )"
  796.             set token $t3
  797.         } else {
  798.             # none of the above, give up.
  799.             set token {}
  800.         }
  801.     }
  802.     
  803.     #    AddrDebug "  result is $token"
  804.     #    set token [string trim $token "\"()"]
  805.     if [regexp {^\((.*)\)$} $token t1 t2] {
  806.        set token $t2
  807.     } 
  808.     if [regexp {^\"(.*)\"$} $token t1 t2] {
  809.        set token $t2
  810.     }
  811.     #    AddrDebug "  trimmed result is $token"
  812.     return $token
  813. }
  814.  
  815. #
  816. # Debug support
  817. #
  818.  
  819. proc AddrDebug { s {nonewline {}}} {
  820.     global Addr_debug
  821.     if {$Addr_debug == 1} {
  822.         if {[string compare $nonewline ""] == 0} {
  823.             puts stdout $s 
  824.         } else {
  825.             puts stdout $s nonewline
  826.         }
  827.     }
  828. }
  829.  
  830. proc AddrShowDialog {w list} {
  831.     global addr_db 
  832.  
  833.     catch {destroy $w.addrs}
  834.     set f [frame $w.addrs -bd 4 -relief ridge]
  835.     frame $f.top -relief flat
  836.     set l [listbox $f.top.lb -bd 4 -width 50 -height 10]
  837.     bind $l <Any-Double-1> "\
  838.             AddrShowDialogDone $f $l ;\
  839.             break \
  840.             "
  841.     bind $l <Escape> "\
  842.             AddrShowDialogCancel $f ;\
  843.             break \
  844.             "
  845.     focus $f.top.lb
  846.     $f configure -cursor left_ptr
  847.     foreach i $list {
  848.         $l insert end $i
  849.     }
  850.     pack $f.top.lb -expand true -fill both -side left
  851.     if {[llength $list] > 10} {
  852.         $f.top.lb configure -yscrollcommand "$f.top.sy set"
  853.         scrollbar $f.top.sy -width 15 -command [list $l yview]
  854.         pack $f.top.sy -expand true -fill y -side left
  855.     }
  856.     pack $f.top -expand true -fill both
  857.     frame $f.but -bd 10 -relief flat
  858.     pack $f.but -expand true -fill both
  859.     Widget_AddBut $f.but ok "Done" [list AddrShowDialogDone $f $l] {left filly}
  860.     Widget_AddBut $f.but can "Cancel" [list AddrShowDialogCancel $f] {right filly}
  861.     Widget_PlaceDialog $w $f
  862.     tkwait window $f
  863.     if [info exists addr_db(expansion)] {
  864.         Exmh_Status "returning $addr_db(expansion)"
  865.         return $addr_db(expansion)
  866.     } else {
  867.         return {}
  868.     }
  869. }
  870.  
  871. proc AddrShowDialogDone {f l} {
  872.     global addr_db
  873.     set result [$l curselection]
  874.     if {[string compare $result ""] != 0} {
  875.         set result [lindex $result 0]
  876.         set name [$l get $result]
  877.         AddrDebug "Selected: $result ($name)"
  878.         set addr_db(expansion) $name
  879.     } else {
  880.         AddrDebug "Selected: <nothing>"
  881.         set addr_db(expansion) ""
  882.     }
  883.     AddrDebug "selected $addr_db(expansion)"
  884.     focus [winfo parent $f]
  885.     catch {destroy $f}
  886. }
  887.  
  888. proc AddrShowDialogCancel {f} {
  889.     global addr_db
  890.  
  891.     set addr_db(expansion) ""
  892.     AddrDebug "selected $addr_db(expansion)"
  893.     focus [winfo parent $f]
  894.     catch {destroy $f}
  895. }
  896.  
  897.  
  898. proc Addr_Browse { {state normal} } {
  899.     global exwin
  900.     global addr_br 
  901.     global addr_db 
  902.     global addr_list
  903.     global Addr_debug
  904.  
  905.     set t .addr_br
  906.     set f .addr_br.but
  907.     set ldmsg "Creating Address Browser..."
  908.     if [Exwin_Toplevel .addr_br "Address DB Browser" Addr_Br] {
  909.         # Reconfigure the Dismiss button created by Exwin_Toplevel
  910.         $f.quit configure -takefocus {} -command {Exwin_Dismiss .addr_br}
  911.  
  912.         # Create the "Selected..." menu (initially disabled)
  913.         set menu_sel [Widget_AddMenuB $f selmenu "Selected..." {right padx 1 filly} ]
  914.         $f.selmenu configure -takefocus {} -state disabled
  915.         set addr_db(selmenu) $f.selmenu
  916.         Widget_AddMenuItem $menu_sel  "Mail To"           \
  917.                 { Addr_Browse_Selected MailTo } <Key-c>
  918.         Widget_AddMenuItem $menu_sel  "Edit"           \
  919.                 { Addr_Browse_Selected Edit }
  920.         Widget_AddMenuItem $menu_sel  "Delete"         \
  921.                 { Addr_Browse_Selected Delete } <Control-w>
  922.         Widget_AddMenuItem $menu_sel  {Toggle Exclude} \
  923.                 { Addr_Browse_Selected Exclude } <Meta-x>
  924.         Widget_AddMenuItem $menu_sel  {View Last Msg}  \
  925.                 { Addr_Browse_Selected ViewLastMsg }
  926.  
  927.         # Create the "Database..." menu
  928.         set menu_db [Widget_AddMenuB $f dbmenu "Database..." {right padx 1 filly} ]
  929.         $f.dbmenu configure -takefocus {}
  930.         Widget_AddMenuItem $menu_db   "Save"   \
  931.                 { Addr_SaveFile 1 } <Meta-s>
  932.         Widget_AddMenuItem $menu_db   "Reload" \
  933.                 { Addr_Browse_Reload } <Meta-r>
  934.         Widget_AddMenuItem $menu_db   "Sort"   \
  935.                 { Addr_Browse_LoadListbox "Sorting database..." normal } <Meta-t>
  936.         if { $Addr_debug == 1 }  { Widget_AddBut $f ldsrc  "LdSrc"  { Addr_Load_Source } }
  937.  
  938.         # Create the New button
  939.         Widget_AddBut $f new   "New"   { Addr_Browse_New }
  940.  
  941.         # Finally, create the Help button
  942.         Widget_AddBut $f help   "Help"   { Help AddrEdit }
  943.         $f.help configure -takefocus {}
  944.  
  945.         # would be nice if the listbox was a set of coordinated list boxes,
  946.         # one column for each field, with headings and options to pick which
  947.         # to display and which to sort on.
  948.  
  949.         # Create the listbox and a scroll bar to help it
  950.         set addr_db(win) [listbox $t.lb \
  951.                 -selectmode extended \
  952.                 -height 20 -width 65 \
  953.                 -relief sunken \
  954.                 -yscrollcommand [list $t.sb set] ]
  955.         scrollbar $t.sb -orient vertical -command [list $addr_db(win) yview]
  956.  
  957.         # Create the filter/find entry field
  958.         Addr_LabelledTextField $t.find Find 0  "set addr_db(filterstring) \[$t.find.entry get \]; Addr_Browse_LoadListbox {Finding...} normal"
  959.         $t.find.entry insert 0 $addr_db(filterstring)
  960.  
  961.         # Mouse button bindings for the listbox
  962.         bind $addr_db(win) <Any-Double-1>    {Addr_Browse_Selected Edit}
  963.         bind $addr_db(win) <KeyRelease>      {Addr_Browse_TrackSel}
  964.         bind $addr_db(win) <ButtonRelease>   {Addr_Browse_TrackSel}
  965.         bind $addr_db(win) <Button-2>        {Addr_Browse_Selected Exclude}
  966.  
  967.         # Menu key accelerators for the toplevel, 
  968.         # but don't do 'em if in the find entry field
  969.         bind $t <Meta-x> {
  970.             if {0 != [string compare "%W" ".addr_br.find.entry"]} {Addr_Browse_Selected Exclude}
  971.         }
  972.         bind $t <Key-c> {
  973.             if {0 != [string compare "%W" ".addr_br.find.entry"]} {Addr_Browse_Selected MailTo}
  974.         }
  975.         bind $t <Control-w> {
  976.             if {0 != [string compare "%W" ".addr_br.find.entry"]} {Addr_Browse_Selected Delete}
  977.         }
  978.         bind $t <Meta-s> {
  979.             if {0 != [string compare "%W" ".addr_br.find.entry"]} {Addr_SaveFile 1}
  980.         }
  981.         bind $t <Meta-r> {
  982.             if {0 != [string compare "%W" ".addr_br.find.entry"]} {Addr_Browse_Reload}
  983.         }
  984.  
  985.         # Adjust packing and filling
  986.         pack $t.find -side bottom -fill x
  987.         pack $t.sb -side $exwin(scrollbarSide) -fill y
  988.         pack $addr_db(win) -expand true -fill both
  989.     }
  990.  
  991.     if {0 == [string compare "$state" "normal"]} { 
  992.         Exmh_Status $ldmsg
  993.     }
  994.  
  995.     # All built, now load up the listbox
  996.     Addr_Browse_LoadListbox $ldmsg $state
  997.     
  998.     # Initial focus to the listbox so accelerators work.
  999.     focus $addr_db(win)
  1000.     if {0 == [string compare "$state" "normal"]} { 
  1001.         Exmh_Status "$ldmsg done" 
  1002.     }
  1003. }
  1004.  
  1005. proc Addr_Browse_TrackSel {} {
  1006.     global addr_db
  1007.  
  1008.     catch {     ;# windows may not exist
  1009.         if { 0 != [string length [$addr_db(win) curselection]] } {
  1010.             $addr_db(selmenu) configure -state normal
  1011.         } else {
  1012.             $addr_db(selmenu) configure -state disabled
  1013.         }
  1014.     }
  1015. }
  1016.  
  1017. proc Addr_Browse_LoadListbox { {ldmsg ""} {state normal}} {
  1018.     global addr_db addr_list
  1019.  
  1020.     if {![info exists addr_db(win)] ||
  1021.         ![winfo exists $addr_db(win)]}  return
  1022.  
  1023.     if {[catch {regexp -nocase -- $addr_db(filterstring) {}} err]} {
  1024.         Exmh_Status $err        ;# bad pattern
  1025.         return
  1026.     }
  1027.  
  1028.     $addr_db(win) delete 0 end
  1029.  
  1030.     if {0 == [string compare "$state" "normal"]} { 
  1031.         Exmh_Status "$ldmsg getting names..."
  1032.     }
  1033.  
  1034.     set l {}
  1035.     foreach i [array names addr_list] {
  1036.         if {$addr_db(hideexcluded) == 0 || [Addr_Entry_IsExcluded $i] == 0} {
  1037.             lappend l [Addr_Entry_FormatForListbox $i]
  1038.         }
  1039.     }
  1040.  
  1041.     if {[llength $l]} {
  1042.         if {0 == [string compare "$state" "normal"]} { 
  1043.             Exmh_Status "$ldmsg sorting names..."
  1044.         }
  1045.         set l [lsort $l]
  1046.         set n 0
  1047.         set whiz [list | \\ - /]
  1048.         set w 0
  1049.         if {[string length $addr_db(filterstring)] > 0} {
  1050.             foreach i $l {
  1051.                 if [regexp -nocase -- $addr_db(filterstring) $i] {
  1052.                     $addr_db(win) insert end $i
  1053.                 }
  1054.                 incr n
  1055.                 if { 0==($n%100) } {
  1056.                     if {0 == [string compare "$state" "normal"]} { 
  1057.                         Exmh_Status "$ldmsg inserting names... [lindex $whiz $w]"
  1058.                     }
  1059.                     set w [expr {($w+1)%4}]
  1060.                 }
  1061.             }
  1062.         } else {
  1063.             foreach i $l {
  1064.                 $addr_db(win) insert end $i
  1065.                 incr n
  1066.                 if { 0==($n%100) } {
  1067.                     if {0 == [string compare "$state" "normal"]} { 
  1068.                         Exmh_Status "$ldmsg inserting names... [lindex $whiz $w]"
  1069.                     }
  1070.                     set w [expr {($w+1)%4}]
  1071.                 }
  1072.             }
  1073.         }
  1074.     }
  1075.     if {0 == [string compare "$state" "normal"]} { 
  1076.         Exmh_Status  "$ldmsg done"
  1077.         update idletasks 
  1078.     }
  1079. }
  1080.  
  1081. # Called by trace variable magic when user changes Show Excluded preference item
  1082. proc Addr_Browse_Exclude_Change {name element op} {
  1083.     global addr_db
  1084.     catch {Exmh_Debug Event addr_db win is $addr_db(win)}
  1085.     Addr_Browse_LoadListbox {} silently
  1086.     return
  1087. }
  1088.  
  1089. proc Addr_Browse_Clip {sel} {
  1090.         global addr_db addr_list mhProfile
  1091.  
  1092.     set victim [MsgParseFrom [$addr_db(win) get $sel]]
  1093.     set last [lindex $addr_list($victim) 0]
  1094.  
  1095.     # since there may be recursive folders, match the MH Path
  1096.     # off the front, the message number off the end and the rest must be the folder.
  1097.     set pat "($mhProfile(path))/(.+)/(\[0-9\]+)\$"
  1098.  
  1099.     if [regexp -- $pat $last match path folder msg] {
  1100.         Msg_Clip $folder $msg
  1101.     } else {
  1102.         Exmh_Status "ViewLastMsg cannot find $last"
  1103.     }
  1104. }
  1105.  
  1106. proc Addr_Browse_Reload {} {
  1107.     global addr_db addr_list
  1108.  
  1109.     set ldmsg "Reloading address database..."
  1110.     if $addr_db(changed) {
  1111.  
  1112.         if [Addr_Browse_ChangedDialog $addr_db(win)] {
  1113.  
  1114.             Exmh_Status $ldmsg
  1115.             unset addr_list
  1116.             Addr_LoadDB $ldmsg
  1117.             Exmh_Status "$ldmsg done."
  1118.         }  else {
  1119.             Exmh_Status "$ldmsg aborted."
  1120.         }
  1121.     } else { 
  1122.         Exmh_Status $ldmsg
  1123.         unset addr_list
  1124.         Addr_LoadDB $ldmsg
  1125.         Exmh_Status "$ldmsg done."
  1126.     }
  1127. }
  1128.  
  1129. proc Addr_Browse_ChangedDialog {w} {
  1130.     global addr_db
  1131.     set f [frame $w.addrch -bd 4 -relief ridge]
  1132.     Exmh_Status "$f"
  1133.     Widget_AddBut $f ok "Yes, this will lose all changes" "\
  1134.             set addr_db(changeresult) 1 ;\
  1135.             destroy $f " \
  1136.             left
  1137.     Widget_AddBut $f no "No, do not reload" "\
  1138.             set addr_db(changeresult) 0 ;\
  1139.             destroy $f " \
  1140.             right
  1141.     Widget_PlaceDialog $w $f
  1142.     tkwait window $f
  1143.     AddrDebug "Addr_Browse_ChangedDialog returns  $addr_db(changeresult)"
  1144.     return $addr_db(changeresult)
  1145. }
  1146.  
  1147. proc Addr_LabelledTextField { name label width command  } { 
  1148.     frame $name
  1149.     label $name.label -text $label -width $width -anchor w
  1150.     eval {entry $name.entry -relief sunken -width  50 } 
  1151.     pack $name.label -side left
  1152.     pack $name.entry -side right -fill x -expand true
  1153.     bind $name.entry <Return> "$command ; break"
  1154.     return $name.entry
  1155. }
  1156.  
  1157. # Interate across all selected items applying a command
  1158. proc Addr_Browse_Selected { { op Noop } } {
  1159.     global addr_db addr_list
  1160.  
  1161.     set to {} ; set sep ""
  1162.  
  1163.     foreach sel [lsort -decreasing -integer [$addr_db(win) curselection]] {
  1164.  
  1165.         switch $op {
  1166.  
  1167.             MailTo {
  1168.                 append to $sep[Addr_Entry_FormatForMail \
  1169.                     [MsgParseFrom [$addr_db(win) get $sel]]]
  1170.                 set sep ", "
  1171.             }
  1172.  
  1173.             Edit {
  1174.                 Addr_Browse_Edit $sel
  1175.             }
  1176.  
  1177.             Delete {
  1178.                 set victim [MsgParseFrom [$addr_db(win) get $sel]]
  1179.                 if [catch {unset addr_list($victim)} val] {
  1180.                     Exmh_Status "Address DB: can't delete: $val"
  1181.                 } else {
  1182.                     set addr_db(changed) 1
  1183.                     # update browser window...
  1184.                     $addr_db(win) delete $sel
  1185.                     Exmh_Status "Address DB: Deleted $victim"
  1186.                 }
  1187.             }
  1188.  
  1189.             Exclude {
  1190.                 set victim [MsgParseFrom [$addr_db(win) get $sel]]
  1191.                 Addr_Entry_ToggleExcluded $victim
  1192.                 # update browser window...
  1193.                 $addr_db(win) delete $sel
  1194.                 if {$addr_db(hideexcluded) == 0 || [Addr_Entry_IsExcluded $victim] == 0} {
  1195.                     $addr_db(win) insert $sel [Addr_Entry_FormatForListbox $victim]
  1196.                 }
  1197.             }
  1198.  
  1199.             ViewLastMsg {
  1200.                 Addr_Browse_Clip $sel
  1201.             }
  1202.  
  1203.         }
  1204.     }
  1205.     if {[string length $to] > 0} {
  1206.         Msg_CompTo $to
  1207.     }
  1208.  
  1209.     Addr_Browse_TrackSel
  1210. }
  1211.  
  1212. proc Addr_Browse_Edit {sel} {
  1213.     global addr_db addr_list
  1214.  
  1215.     set victim [MsgParseFrom [$addr_db(win) get $sel]]
  1216.     if [catch {set item $addr_list($victim)} err] {
  1217.         Exmh_Status "Address DB: Addr_Browse_Edit lookup error for $victim"
  1218.         return
  1219.     }
  1220.  
  1221.     set name [lindex $item 2]
  1222.     set addr [lindex $item 3]
  1223.     set last [lindex $item 0]
  1224.     set date [lindex $item 1]
  1225.     set exclude [Addr_Entry_IsExcluded $victim]
  1226.     unset item
  1227.  
  1228.     set t .addr_ed
  1229.     set id 0
  1230.     for {set id 1} {$id < 21} {incr id} {
  1231.         AddrDebug "winfo exists $t$id is [winfo exists $t$id]"
  1232.         if [winfo exists $t$id] continue
  1233.         append t $id
  1234.         break
  1235.     }
  1236.     if [winfo exists $t] {
  1237.         Exmh_Status "Too many editors open, close one or more and try again"
  1238.         return
  1239.     }
  1240.     if [Exwin_Toplevel $t "Address DB editor" Addr_Ed] {
  1241.  
  1242.         set f $t.but
  1243.  
  1244.         $t.but.quit configure -text Cancel -command "Addr_Edit_Dismiss $t"
  1245.         $t configure -width 500
  1246.  
  1247.         Widget_AddBut $f save   "Save"            "Addr_Edit_Save $t $sel"
  1248.         Widget_AddBut $f delete "Delete"          "Addr_Edit_Delete $t $sel"
  1249.         Widget_AddBut $f last   "ViewLastMsg"     "Addr_Browse_Clip $sel"
  1250.         set e [Widget_AddBut $f ignore  "Exclude" "Addr_Edit_Exclude $t $sel"]
  1251.  
  1252.         set n [Addr_LabelledTextField $t.name     "Full Name"     12 "Addr_Edit_Save $t $sel" ]
  1253.         set a [Addr_LabelledTextField $t.address  "Address"       12 "Addr_Edit_Save $t $sel" ]
  1254.         set l [Addr_LabelledTextField $t.lastMsg  "Last Message"  12 "Addr_Edit_Save $t $sel" ]
  1255.         set d [Addr_LabelledTextField $t.date     "Date"          12 "Addr_Edit_Save $t $sel" ]
  1256.         
  1257.         pack $t.name $t.address  $t.lastMsg  $t.date
  1258.  
  1259.     }
  1260.  
  1261.     $n delete 0 end;    $n insert 0 $name
  1262.     $a delete 0 end;    $a insert 0 $addr
  1263.     $l delete 0 end;    $l insert 0 $last
  1264.     $d delete 0 end;    $d insert 0 $date
  1265.         
  1266.     if {$exclude == 1} {
  1267.         $e config -text "Include"
  1268.         AddrDebug "$e config -text Include"
  1269.     } else {
  1270.         $e config -text "Exclude"
  1271.         AddrDebug "$e config -text Exclude"
  1272.     }
  1273. }
  1274.  
  1275.  
  1276.  
  1277. proc Addr_Browse_New {} {
  1278.     global addr_db addr_list
  1279.  
  1280.     set t .addr_ed
  1281.     set id 0
  1282.     for {set id 1} {$id < 21} {incr id} {
  1283.         AddrDebug "winfo exists $t$id is [winfo exists $t$id]"
  1284.         if [winfo exists $t$id] continue
  1285.         append t $id
  1286.         break
  1287.     }
  1288.     if [winfo exists $t] {
  1289.         Exmh_Status "Too many editors open, close one or more and try again"
  1290.         return
  1291.     }
  1292.     if [Exwin_Toplevel $t "New DB address" Addr_Ed] {
  1293.  
  1294.         set f $t.but
  1295.  
  1296.         $t.but.quit configure -text Cancel -command "Addr_Edit_Dismiss $t"
  1297.         $t configure -width 500
  1298.  
  1299.         Widget_AddBut $f save "Save"      "Addr_New_Save $t"
  1300.  
  1301.         Addr_LabelledTextField $t.name    "Full Name" 12 "Addr_New_Save $t"
  1302.         Addr_LabelledTextField $t.address "Address"   12 "Addr_New_Save $t"
  1303.  
  1304.         pack $t.name $t.address
  1305.     }
  1306. }
  1307.  
  1308. proc Addr_New_Save {winname} {
  1309.     global addr_db addr_list
  1310.  
  1311.     set name [$winname.name.entry get]
  1312.     set addr [$winname.address.entry get]
  1313.     set last ""
  1314.     set date ""
  1315.  
  1316.     set index [MsgParseFrom $addr]
  1317.     # NEED TO STUFF new NAME into entry!
  1318.     set addr [format "%s <%s>" $name $index]
  1319.     Exmh_Status "Updating address \"$index\"."
  1320.     set addr_db(changed) 1
  1321.     set addr_list($index) [list $last $date  \
  1322.             [Addr_ParseFrom $addr] $addr] 
  1323.  
  1324.     # update browser window...
  1325.     $addr_db(win) insert end [Addr_Entry_FormatForListbox $index]
  1326.  
  1327.     # make it all go away so we can redo it next time.
  1328.     Addr_Edit_Dismiss $winname
  1329. }
  1330.   
  1331.   
  1332. proc Addr_Load_Source {}  {
  1333.     global env
  1334.     # HACK HACK HACK!!!
  1335.     source "~/.tk/exmh/addr.tcl"
  1336. }
  1337.  
  1338. ########################################################################
  1339. #
  1340. # Address Editor Routines
  1341. #
  1342.  
  1343. proc Addr_Edit_Exclude {winname sel} {
  1344.     global addr_db addr_list
  1345.  
  1346.     set addr [$winname.address.entry get]
  1347.  
  1348.     set victim [MsgParseFrom $addr]
  1349.     Exmh_Status "Updating address \"$victim\"."
  1350.     Addr_Entry_ToggleExcluded $victim
  1351.     set exclude [Addr_Entry_IsExcluded $victim]
  1352.  
  1353.     # update browser window...
  1354.     $addr_db(win) delete $sel
  1355.     if {$addr_db(hideexcluded) == 0 || $exclude == 0} {
  1356.         $addr_db(win) insert $sel [Addr_Entry_FormatForListbox $victim]
  1357.     }
  1358.  
  1359.     # make it all go away so we can redo it next time.
  1360.     Addr_Edit_Dismiss $winname
  1361. }
  1362.  
  1363. proc Addr_Edit_Save {winname sel} {
  1364.     global addr_db addr_list
  1365.  
  1366.     set name [$winname.name.entry get]
  1367.     set addr [$winname.address.entry get]
  1368.     set last [$winname.lastMsg.entry get]
  1369.     set date [$winname.date.entry get]
  1370.  
  1371.     set index [MsgParseFrom $addr]
  1372.     # NEED TO STUFF new NAME into entry!
  1373.     set addr [format "%s <%s>" $name $index]
  1374.     Exmh_Status "Updating address \"$index\"."
  1375.     set addr_db(changed) 1
  1376.     set addr_list($index) [list $last $date  \
  1377.             [Addr_ParseFrom $addr] $addr] 
  1378.  
  1379.     # update browser window...
  1380.     $addr_db(win) delete $sel
  1381.     $addr_db(win) insert $sel [Addr_Entry_FormatForListbox $index]
  1382.  
  1383.     # make it all go away so we can redo it next time.
  1384.     Addr_Edit_Dismiss $winname
  1385. }
  1386.  
  1387. proc Addr_Edit_Delete { winname sel } {
  1388.     global addr_db addr_list
  1389.  
  1390.     set addr [$winname.address.entry get]
  1391.     set index [MsgParseFrom $addr]
  1392.     $addr_db(win) delete $sel
  1393.  
  1394.     unset addr_list($index)
  1395.     Addr_Edit_Dismiss $winname
  1396. }
  1397.  
  1398. proc Addr_Edit_Abort {} {
  1399.     global addr_db
  1400.     Addr_Edit_Dismiss
  1401. }
  1402.  
  1403. proc Addr_Edit_Dismiss { winname } {
  1404.     Exwin_Dismiss $winname
  1405.     destroy $winname
  1406. }
  1407. ########################################################################
  1408. #
  1409. # done loading...
  1410. #
  1411. if {$Addr_debug} { puts stdout "done." }
  1412.